home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / CROSSCUR.PAS next >
Pascal/Delphi Source File  |  1986-10-03  |  941b  |  42 lines
  1. PROCEDURE CROSSCUR;
  2.    BEGIN
  3.    (* SCREEN MASK *)
  4.      CUR[0] := $FC3F;
  5.      CUR[1] := $FC3F;
  6.      CUR[2] := $FC3F;
  7.      CUR[3] := $0180;
  8.      CUR[4] := $03C0;
  9.      CUR[5] := $0180;
  10.      CUR[6] := $FC3F;
  11.      CUR[7] := $FC3F;
  12.      CUR[8] := $FC3F;
  13.      CUR[9] := $FFFF;
  14.      CUR[10] := $FFFF;
  15.      CUR[11] := $FFFF;
  16.      CUR[12] := $FFFF;
  17.      CUR[13] := $FFFF;
  18.      CUR[14] := $FFFF;
  19.      CUR[15] := $FFFF;
  20.    (* CURSOR MASK *)
  21.      CUR[16] := $0000;
  22.      CUR[17] := $0180;
  23.      CUR[18] := $0180;
  24.      CUR[19] := $0000;
  25.      CUR[20] := $7C3E;
  26.      CUR[21] := $0000;
  27.      CUR[22] := $0180;
  28.      CUR[23] := $0180;
  29.      CUR[24] := $0000;
  30.      CUR[25] := $0000;
  31.      CUR[26] := $0000;
  32.      CUR[27] := $0000;
  33.      CUR[28] := $0000;
  34.      CUR[29] := $0000;
  35.      CUR[30] := $0000;
  36.      CUR[31] := $0000;
  37.   (* DEFINE HOT SPOT *)
  38.      M1 := 9;
  39.      M2 := 7;
  40.      M3 := 4;
  41.      MOUSE(M1,M2,M3,CUR[0]);
  42.    END;